home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / libs / mui / Install-MUI < prev    next >
Text File  |  1996-09-18  |  30KB  |  1,015 lines
  1. ; $VER: Install-MUI 3.6 (13.07.96)
  2.  
  3. (set current_version "3.6")
  4. (set current_libver  17)
  5. (set lng @language)
  6. (set #tmpdir "t:mui.inst")
  7.  
  8. (complete 0)
  9.  
  10.  
  11.  
  12. ;=============================================================================
  13. ; Locale strings
  14.  
  15. (set #intro_0 (cat "\n\Magic User Interface " current_version "\n========================\n© 1992-96, Stefan Stuntz"))
  16.  
  17.  
  18. ;=============================================================================
  19. ; german
  20.  
  21. (if (= lng "deutsch")
  22. (
  23.  
  24. (set #intro_1      "Willkommen zum MUI Installationsprogramm. Hiermit können Sie MUI neu auf Ihrem System installieren oder eine bereits vorhandene, ältere Version von MUI ersetzen.")
  25. (set #intro_2      "Neue MUI Versionen sind immer abwärtskompatibel, alle MUI-Programme funktionieren weiter und profitieren automatisch von Verbesserungen im MUI-System.")
  26.  
  27. (set #obso_1       "\nWARNUNG\n=======\n\nDie auf Ihrer Festplatte installierte Datei\n\n")
  28. (set #obso_2       "\n\nist überflüssig und kann die Funktionsfähigkeit von MUI beeinträchtigen. Soll diese Datei nun gelöscht werden (dringend empfohlen)?")
  29. (set #obso_yes     "Ja, löschen!")
  30. (set #obso_no      "Nein, nicht löschen!")
  31. (set #obso_nodel1  "\nDie Funktionsfähigkeit von MUI kann durch das Vorhandensein der nicht gelöschten aber überflüssigen Datei\n\n")
  32. (set #obso_nodel2  "\n\nbeeinträchtigt werden. Falls MUI nach der Installation nicht funktioniert, löschen Sie die Datei bitte von Hand.")
  33. (set #obso_help    "\nAlle zu MUI gehörenden Dateien werden innerhalb eines einzigen Verzeichnises namens 'MUI' installiert. Wenn sich MUI-Dateien in Ihrem System außerhalb dieses Verzeichnises befinden (etwa weil diese von früheren Installationen übrig geblieben sind), kann das die Funktionsfähigkeit von MUI beeinträchtigen. \n\nEs wird deshalb dringend empfohlen, solche Dateien wie vom Installationsprogramm vorgeschlagen zu löschen.")
  34.  
  35. (set #oldmui_1     "ist auf Ihrem System bereits im Verzeichnis\n\n")
  36. (set #oldmui_2_1   "\n\nvorhanden. Sie können diese Installation updaten (empfohlen) oder ein neues Verzeichnis auswählen.")
  37. (set #oldmui_2_2   "\n\nvorhanden. Dieses Paket ist bereits aktueller als die Dateien die Sie gerade installieren möchen. Sie können die Installation nun abbrechen (empfohlen) oder das Verzeichnis wechseln.")
  38. (set #oldmui_yes_1 "Update")
  39. (set #oldmui_yes_2 "Abbrechen")
  40. (set #oldmui_no    "Verzeichnis wechseln")
  41.  
  42. (set #destdir      "Bitte wählen Sie einen Platz für MUI. Ein Verzeichnis namens 'MUI' wird dort automatisch erzeugt. Der minimale Platzbedarf beträgt 500 kB, eine Komplett-Installation benötigt etwa 2.5 MB.")
  43. (set #destexists_1 "\nIm gewählten Zielverzeichnis\n\n")
  44. (set #destexists_2 "\n\nexistiert bereits eine MUI-Schublade. Wenn Sie fortfahren, wird die dort befindliche MUI-Installation aktualisiert.")
  45.  
  46. (set #guideask     "\nBitte wählen Sie die Sprache(n) für die AmigaGuide Dokumentation aus. Diese wird unter anderem für die Online-Hilfe im Voreinsteller und Screen Manager benötigt.")
  47. (set #dviask       "\nBitte wählen Sie die Sprache(n) für die DVI Dokumentation aus. DVI Dokumentationen werden hauptsächlich zum Ausdrucken benötigt.")
  48. (set #imgask       "\nWählen Sie die zusätzlichen Image-Pakete aus, die Sie installieren möchten.")
  49.  
  50. (set #nainfo1      "Mit")
  51. (set #nainfo2      "(n/a)")
  52. (set #nainfo3      "markierte Elemente sind aus Platzmangel im aktuellen Installations-Archiv nicht verfügbar.")
  53.  
  54. (set #copying      "\nKopiere ")
  55. (set #copydoc2     "Dokumentation")
  56. (set #copydoc3     "ist im aktuellen Installations-Archiv nicht verfügbar, sie wurden aus Platzmangel weggelassen. MUI benötigt diese Dateien nicht zur korrekten Funktion.")
  57.  
  58. (set #finished_0   "MUI wurde erfolgreich installiert im Verzeichnis")
  59. (set #finished_1   "Bitte starten Sie nun Ihren Rechner neu, um MUI ins System einzubinden.")
  60.  
  61. (set #demosdrawer  "\nMUI-Beispielprogramme demonstrieren einige der Möglichkeiten, mit denen man Benutzeroberflächen gestalten kann. Eine Installation ist für die korrekte Funktion von MUI jedoch nicht erforderlich. Wollen Sie die MUI-Beispielprogramme (ca. 250 kB) jetzt installieren?")
  62.  
  63. (set #yes          "Ja")
  64. (set #no           "Nein")
  65.  
  66. (set #extracting   "Entpacke Dateien aus komprimierter Distribution...")
  67.  
  68. (set #reg_prompt "Vielen Dank, daß Sie sich für MUI registriert haben. Um MUI-Demoversionen in registrierte Vollversionen zu verwandeln, muß Ihr personalisiertes Keyfile auf Ihrer Festplatte im S: Verzeichnis installiert werden. Wollen Sie das jetzt tun (empfohlen)?")
  69. (set #reg_yes    "Ja, Keyfile installieren")
  70. (set #reg_no     "Nein, Keyfile nicht installieren")
  71. (set #reg_help   "\nDas Keyfile verwandelt Demoversionen von MUI in registrierte Vollversionen. Nach seiner Installation im S: Verzeichnis Ihrer Festplatte werden alle Möglichkeiten von MUI verfügbar sein. Das Keyfile ist personalisiert und darf unter keinen Umständen weitergegeben werden.")
  72. (set #reg_noway  "\nSie haben sich entschieden, daß Keyfile jetzt nicht zu installieren. Die nur für registrierte Benutzer zugänglichen Optionen werden gesperrt sein.\n\nSie können das Installationsprogramm jederzeit wieder starten oder das Keyfile von Hand kopieren. Benutzen Sie dazu einen Befehl wie\n\ncopy df0:mui.key S:")
  73.  
  74. )
  75.  
  76.  
  77. ;=============================================================================
  78. ; english
  79.  
  80. (
  81.  
  82. (set #intro_1      "Welcome to the MUI installation program. Use this tool to install MUI on your system or to update a previously installed MUI release.")
  83. (set #intro_2      "All new versions of MUI are backwards compatible, all MUI programs will continue to work and automatically benefit from new features.")
  84.  
  85. (set #obso_1       "\nWARNING\n=======\n\nThe file\n\n")
  86. (set #obso_2       "\n\non your harddisk is unneccessary and may cause MUI to malfunction. Shall this file be deleted (recommended)?")
  87. (set #obso_yes     "Yes, delete")
  88. (set #obso_no      "No, don't delete")
  89. (set #obso_nodel1  "\nThe presence of the file\n\n")
  90. (set #obso_nodel2  "\n\nmay cause MUI to malfunction after the installation. If you encounter problems, please delete the file.")
  91. (set #obso_help    "\nAll MUI files belong to a single directory called 'MUI'. If there are any MUI files outside this directory (e.g. because they were left over from a previous installation), MUI might not work as expected.\n\nIt is strongly recommended to delete those files, like suggested by the installation program.")
  92.  
  93. (set #oldmui_1     "is already installed in the drawer\n\n")
  94. (set #oldmui_2_1   "\n\nYou can update this installation (recommended) or select a new drawer.")
  95. (set #oldmui_2_2   "\n\nThis package is more recent than the files you're about to install. You can abort this installation (recommended) or select a new drawer.")
  96. (set #oldmui_yes_1 "Update")
  97. (set #oldmui_yes_2 "Abort")
  98. (set #oldmui_no    "Change drawer")
  99.  
  100. (set #destdir      "Please select a place for the MUI package. A drawer called 'MUI' will be created here. The minimum space required is about 500 kB, a complete installation takes 2.5 MB.")
  101. (set #destexists_1 "\nThe directory\n\n")
  102. (set #destexists_2 "\n\nalready contains a MUI drawer. If you continue, the MUI installation in this drawer is updated.")
  103.  
  104. (set #guideask     "Select the language(s) of AmigaGuide documentations you wish to install. You must choose at least one language if you want to use online help with the MUI preferences programs.")
  105. (set #dviask       "Select the language(s) of DVI documentations you wish to install. DVI docs are mainly useful for printing.")
  106. (set #imgask       "Select the image set(s) you wish to install.")
  107.  
  108. (set #nainfo1      "Items marked as")
  109. (set #nainfo2      "(n/a)")
  110. (set #nainfo3      "are not available in the current distribution archive due to space considerations.")
  111.  
  112. (set #copying      "\nCopying ")
  113. (set #copydoc2     "documenation")
  114. (set #copydoc3     "is not present in the current installation archive. It has probably been left out due to space considerations. However, MUI will run fine without those files.")
  115.  
  116. (set #finished_0   "MUI was successfully installed in the drawer")
  117. (set #finished_1   "Please reboot your machine before starting any MUI applications.")
  118.  
  119. (set #demosdrawer  "\nMUI example programs demonstrate some of the posssibilities that MUI offers for creation of user interfaces. They are not required for a working MUI installation. Do you want to install the example programs (about 250 kB) now?")
  120.  
  121. (set #yes          "Yes")
  122. (set #no           "No" )
  123.  
  124. (set #extracting   "Extracting files from compressed distribution...")
  125.  
  126. (set #reg_prompt "Thank you very much for purchasing MUI. To turn your demo version into a registered version, your personalized keyfile needs to be installed on your hard disk in the S: directory. Do you want to do that now (recommended)?")
  127. (set #reg_yes    "Yes, install keyfile")
  128. (set #reg_no     "No, don't install keyfile")
  129. (set #reg_help   "\nThe keyfile turns any MUI demo version into a registered version. After installation in the S: directory of your harddisk, all features will be enabled. The keyfile is personalized with your name and address and may not be redistributed under any circumstances.")
  130. (set #reg_noway  "\nYou choose not to install your keyfile. The options for registered users won't be enabled until you do that.\n\nYou can restart the installer script later or copy the keyfile manually with a command like\n\ncopy df0:mui.key S:")
  131.  
  132. ))
  133.  
  134.  
  135.  
  136. ;=============================================================================
  137. ; procedure COPYDOC
  138. ;
  139. ; cd_language - language
  140. ; cd_name     - "MUI.guide" or "MUI.dvi"
  141. ; cd_srcdir    - Docs dir
  142.  
  143. (procedure COPYDOC
  144. (
  145.     (set cdsrc (tackon (tackon cd_srcdir cd_language) cd_name))
  146.     (set cddst (tackon (tackon destination "Docs") cd_language))
  147.  
  148.     (if (<> (exists cdsrc (noreq)) 0)
  149.     (
  150.         (run (cat "copy " (tackon cd_srcdir cd_language) ".info " "\"" cddst ".info" "\"" ))
  151.  
  152.         (copyfiles
  153.             (prompt #copying cd_language " " cd_name " " #copydoc2 "...")
  154.             (source cdsrc)
  155.             (dest cddst)
  156.             (infos)
  157.             (help @copyfiles-help)
  158.             (confirm "expert")
  159.         )
  160.     )
  161.     (
  162.         (message cd_name " (" cd_language ") " #copydoc3)
  163.     ))
  164. ))
  165.  
  166.  
  167.  
  168. ;=============================================================================
  169. ; procedure COPYIMAGEDIR
  170. ;
  171. ; ci_dir - image dir name
  172.  
  173. (procedure COPYIMAGEDIR
  174. (
  175.     (set cdsrc ci_dir)
  176.     (set cddst (tackon (tackon destination "Images") (fileonly ci_dir)))
  177.  
  178.     (if (exists cdsrc (noreq))
  179.     (
  180.         (copyfiles
  181.             (prompt #copying ci_dir "...")
  182.             (source cdsrc)
  183.             (dest cddst)
  184.             (all)
  185.             (help @copyfiles-help)
  186.             (confirm "expert")
  187.         )
  188.     )
  189.     (
  190.         (message ci_dir " " #copydoc3)
  191.     )
  192.     )
  193. )
  194. )
  195.  
  196.  
  197.  
  198. ;=============================================================================
  199. ; procedure CHECKOBSO
  200. ;
  201. ; co_name - name of obsolete file/dir
  202.  
  203. (procedure CHECKOBSO
  204. (
  205.     (if (exists co_name (noreq))
  206.     (
  207.         (if (askbool (prompt #obso_1 co_name #obso_2) (choices #obso_yes #obso_no) (default 1) (help #obso_help))
  208.         (
  209.             (run (cat "delete all force quiet " co_name))
  210.         )
  211.         (
  212.             (message (cat #obso_nodel1 co_name #obso_nodel2))
  213.         )
  214.         )
  215.     )
  216.     )
  217. )
  218. )
  219.  
  220.  
  221.  
  222. ;=============================================================================
  223. ; procedure COPYDRAWER
  224. ;
  225. ; cd_name - name of drawer
  226. ; cd_ask - prompt
  227. ; cd_opts - additional options
  228.  
  229. (procedure COPYDRAWER
  230. (
  231.     (set #sdir (P_PREPARE cd_name))
  232.  
  233.     (if (exists (tackon #sdir cd_name) (noreq))
  234.     (
  235.         (set doit 1)
  236.  
  237.         (if (> (strlen cd_ask) 0)
  238.         (
  239.             (if (askbool (prompt cd_ask) (choices #yes #no) (default 1) (help @askbool-help))
  240.             (
  241.                 (set doit 1)
  242.             )
  243.             (
  244.                 (set doit 0)
  245.             )
  246.             )
  247.         )
  248.         )
  249.  
  250.         (if (= doit 1)
  251.         (
  252.             (P_COPYFILE 0 (cat (tackon #sdir cd_name) ".info") destination)
  253.             ;(run (cat "copy " cd_name ".info \"" destination "\"" ))
  254.  
  255.             (copyfiles
  256.                 (prompt #copying cd_name " drawer...")
  257.                 (source (tackon #sdir cd_name))
  258.                 (dest (tackon destination cd_name))
  259.                 (all)
  260.                 (infos)
  261.                 (help @copyfiles-help)
  262.                 (confirm "expert")
  263.                 (optional cd_opts)
  264.             )
  265.         )
  266.         )
  267.     )
  268.     )
  269.  
  270.     (P_CLEANTMP)
  271. )
  272. )
  273.  
  274.  
  275.  
  276. (procedure P_COPYDIR #lib #sourcedir #destdir
  277. (
  278.     (transcript #lib " " #sourcedir " " #destdir " " #wix)
  279.  
  280.     (if (exists #sourcedir)
  281.     (
  282.         (foreach #sourcedir "#?"
  283.         (
  284.             (if (< @each-type 0)
  285.                 (P_COPYFILE #lib (tackon #sourcedir @each-name) #destdir)
  286.             )
  287.         )
  288.         )
  289.     )
  290.     )
  291. )
  292. )
  293.  
  294.  
  295. (procedure P_COPYFILE #lib #srcname #dstdir
  296. (
  297.     (if #lib
  298.     (
  299.         (copylib
  300.             (prompt #copying #srcname "...")
  301.             (help @copylib-help)
  302.             (source #srcname)
  303.             (dest #dstdir)
  304.             (optional "force" "askuser")
  305.             (confirm "expert")
  306.             (infos)
  307.         )
  308.     )
  309.     (
  310.         ;(transcript "copy '" #srcname "'")
  311.  
  312.         (copyfiles
  313.             (prompt #copying #srcname "...")
  314.             (help @copyfiles-help)
  315.             (source #srcname)
  316.             (dest #dstdir)
  317.             (optional "force" "askuser")
  318.             (confirm "expert")
  319.             (infos)
  320.         )
  321.     )
  322.     )
  323. )
  324. )
  325.  
  326.  
  327. (procedure P_PREPARE #drw
  328. (
  329.     (if (exists (#drw))
  330.     (
  331.         (cat "")
  332.     )
  333.     (
  334.         (if (= #drw "MUI")
  335.         (
  336.             ; prepare root dir
  337.             (P_EXTRACT "MUI MUI.info PSI PSI.info \" \" \" .info\"")
  338.             (cat #tmpdir)
  339.         )
  340.         (
  341.             (P_EXTRACT (cat #drw "/* " #drw ".info"))
  342.             (cat #tmpdir)
  343.         )
  344.         )
  345.     )
  346.     )
  347. )
  348. )
  349.  
  350.  
  351. (procedure P_EXTRACT #pats
  352. (
  353.     (working #extracting)
  354.     (run (cat "t:unlzx -m x muipack.lzx " #pats " " #tmpdir "/"))
  355. )
  356. )
  357.  
  358.  
  359. (procedure P_CLEANTMP
  360. (
  361.     (if (exists #tmpdir)
  362.     (
  363.         (run (cat "delete \"" (tackon #tmpdir "#?") "\" all quiet"))
  364.     )
  365.     )
  366. )
  367. )
  368.  
  369.  
  370.  
  371. ;=============================================================================
  372. ; Copy keyfile if registered version
  373.  
  374. (if (exists "/mui.key")
  375. (
  376.     (if (askbool (prompt (cat #intro_0 "\n\n" #reg_prompt)) (choices #reg_yes #reg_no) (default 1) (help #reg_help))
  377.     (
  378.         (copyfiles
  379.             (prompt #reg_copying)
  380.             (source "/mui.key")
  381.             (dest "S:")
  382.             (help @copyfiles-help)
  383.             (confirm "expert")
  384.         )
  385.     )
  386.     (
  387.         (message #reg_noway)
  388.     )
  389.     )
  390. )
  391. )
  392.  
  393.  
  394. ;=============================================================================
  395. ; Say hello
  396.  
  397. ;(set @default-dest "Work:")
  398. (message #intro_0 "\n\n" #intro_1 "\n\n" #intro_2)
  399.  
  400. (if (exists "muipack.lzx")
  401. (
  402.     (run "copy unlzx t:")
  403.     (if (= (exists #tmpdir) 0) ( (makedir #tmpdir (help @makedir-help)) ))
  404. )
  405. )
  406.  
  407.  
  408.  
  409. ;=============================================================================
  410. ; Obsolete File Check
  411.  
  412. (complete 5)
  413.  
  414. (set co_name "sys:libs/muiwinborder.class"     ) (CHECKOBSO)
  415. (set co_name "sys:libs/muiscreen.library"      ) (CHECKOBSO)
  416. (set co_name "sys:libs/muirexx.library"        ) (CHECKOBSO)
  417. (set co_name "sys:libs/muipropg.class"         ) (CHECKOBSO)
  418. (set co_name "sys:libs/muimaster.library"      ) (CHECKOBSO)
  419. (set co_name "sys:libs/muilowlevel.library"    ) (CHECKOBSO)
  420. (set co_name "sys:libs/muilocale.library"      ) (CHECKOBSO)
  421. (set co_name "sys:libs/muihelp.library"        ) (CHECKOBSO)
  422. (set co_name "sys:libs/muigfx.library"         ) (CHECKOBSO)
  423. (set co_name "sys:libs/muiconfig.library"      ) (CHECKOBSO)
  424. (set co_name "sys:libs/muiwinscroller.class"   ) (CHECKOBSO)
  425. (set co_name "sys:libs/muipop.library"         ) (CHECKOBSO)
  426. (set co_name "sys:libs/muispecial.library"     ) (CHECKOBSO)
  427. (set co_name "sys:libs/mui"                    ) (CHECKOBSO)
  428.  
  429. (set co_name "sys:classes/muiwinborder.class"  ) (CHECKOBSO)
  430. (set co_name "sys:classes/muiscreen.library"   ) (CHECKOBSO)
  431. (set co_name "sys:classes/muirexx.library"     ) (CHECKOBSO)
  432. (set co_name "sys:classes/muipropg.class"      ) (CHECKOBSO)
  433. (set co_name "sys:classes/muimaster.library"   ) (CHECKOBSO)
  434. (set co_name "sys:classes/muilowlevel.library" ) (CHECKOBSO)
  435. (set co_name "sys:classes/muilocale.library"   ) (CHECKOBSO)
  436. (set co_name "sys:classes/muihelp.library"     ) (CHECKOBSO)
  437. (set co_name "sys:classes/muigfx.library"      ) (CHECKOBSO)
  438. (set co_name "sys:classes/muiconfig.library"   ) (CHECKOBSO)
  439. (set co_name "sys:classes/muiwinscroller.class") (CHECKOBSO)
  440. (set co_name "sys:classes/muipop.library"      ) (CHECKOBSO)
  441. (set co_name "sys:classes/muispecial.library"  ) (CHECKOBSO)
  442. (set co_name "sys:classes/mui"                 ) (CHECKOBSO)
  443.  
  444. (set co_name "sys:prefs/MUI"                   ) (CHECKOBSO)
  445. (set co_name "sys:prefs/MUI.info"              ) (CHECKOBSO)
  446. (set co_name "sys:prefs/PSI"                   ) (CHECKOBSO)
  447. (set co_name "sys:prefs/PSI.info"              ) (CHECKOBSO)
  448.  
  449.  
  450.  
  451. ;=============================================================================
  452. ; Select destination directory
  453.  
  454. (complete 10)
  455.  
  456. (set seldir 1)
  457.  
  458. (if (<> (exists "mui:" (noreq)) 0)
  459. (
  460.     (set @default-dest (expandpath "mui:/"))
  461.  
  462.     (set vernum 0)
  463.     (if (<> (exists "mui:MUI" (noreq)) 0) (set vernum (getversion "mui:MUI"))
  464.     (if (<> (exists "mui:PSI" (noreq)) 0) (set vernum (getversion "mui:PSI"))
  465.     ))
  466.  
  467.     (set ver (/ vernum 65536))
  468.  
  469.     (if (= ver  0) (set verstr ""   )
  470.     (if (< ver  6) (set verstr "1.x")
  471.     (if (= ver  6) (set verstr "1.4")
  472.     (if (= ver  7) (set verstr "2.0")
  473.     (if (= ver  8) (set verstr "2.1")
  474.     (if (= ver  9) (set verstr "2.2")
  475.     (if (= ver 10) (set verstr "2.3")
  476.     (if (= ver 11) (set verstr "3.0")
  477.     (if (= ver 12) (set verstr "3.1")
  478.     (if (= ver 13) (set verstr "3.2")
  479.     (if (= ver 14) (set verstr "3.3")
  480.     (if (= ver 15) (set verstr "3.4")
  481.     (if (= ver 16) (set verstr "3.5")
  482.     (if (= ver 17) (set verstr "3.6")
  483.     (if (= ver 18) (set verstr "3.7")
  484.     (if (= ver 19) (set verstr "3.8")
  485.     (if (= ver 20) (set verstr "3.9")
  486.     (if (> ver 20) (set verstr ""   )
  487.     ))))))))))))))))))
  488.  
  489.     (if (= (strlen verstr) 3)
  490.         (set verstr (cat verstr " (library versions " ver ".x)"))
  491.         (set verstr "(unknown version)")
  492.     )
  493.  
  494.     (if (> ver current_libver)
  495.     (
  496.         (if (askbool (prompt "\nMUI " verstr " " #oldmui_1 @default-dest #oldmui_2_2) (choices #oldmui_yes_2 #oldmui_no) (help @askbool-help))
  497.         (
  498.             (exit (quiet))
  499.         )
  500.         )
  501.     )
  502.     (
  503.         (if (askbool (prompt "\nMUI " verstr " " #oldmui_1 @default-dest #oldmui_2_1) (choices #oldmui_yes_1 #oldmui_no) (help @askbool-help))
  504.         (
  505.             (set seldir 0)
  506.         )
  507.         )
  508.     )
  509.     )
  510. )
  511. )
  512.  
  513. (if (<> seldir 0)
  514. (
  515.     (set @default-dest
  516.         (askdir
  517.             (prompt #destdir)
  518.             (help @askdir-help)
  519.             (default @default-dest)
  520.         )
  521.     )
  522.  
  523.     (set @default-dest (expandpath @default-dest))
  524. )
  525. )
  526.  
  527. (set destination (tackon @default-dest "MUI"))
  528.  
  529. (if (<> seldir 0)
  530. (
  531.     (if (<> (exists destination) 0)
  532.     (
  533.         (message (cat #destexists_1 @default-dest #destexists_2))
  534.     )
  535.     )
  536. )
  537. )
  538.  
  539.  
  540.  
  541. ;=============================================================================
  542. ; Lets go, create destination directory, copy main files and libs
  543.  
  544. (complete 15)
  545.  
  546. ; create destination directory
  547. (if (= (exists destination) 0) ( (makedir destination (help @makedir-help)) ))
  548.  
  549. ;mui drawer icon
  550. ;(if (not (exists (cat destination ".info")))
  551. ;(
  552.     (if (exists "/MUI-IBrowse.info") (run (cat "copy /MUI-IBrowse.info \"" destination ".info\""))
  553.     (if (exists "/MUI.info"        ) (run (cat "copy /MUI.info         \"" destination ".info\""))
  554.     ))
  555.  
  556.     (tooltype (dest destination) (noposition))
  557. ;)
  558. ;)
  559.  
  560. (complete 20)
  561.  
  562.  
  563. (copyfiles
  564.     (prompt (cat #copying "readme files ..."))
  565.     (source "")
  566.     (pattern "(ReadMe|LiesMich| )")
  567.     (dest destination)
  568.     (infos)
  569.     (help @copyfiles-help)
  570.     (confirm "expert")
  571. )
  572.  
  573. (complete 21)
  574.  
  575. (set #sdir (P_PREPARE "MUI"))
  576.  
  577. (P_COPYFILE 1 (tackon #sdir "MUI") destination)
  578. (P_COPYFILE 1 (tackon #sdir "PSI") destination)
  579. (P_COPYFILE 1 (tackon #sdir " ") destination)
  580.  
  581. (P_CLEANTMP)
  582.  
  583. (complete 22)
  584.  
  585.  
  586.  
  587. ;=============================================================================
  588. ; Libs
  589.  
  590. (set #sdir (P_PREPARE "Libs"))
  591.  
  592. (P_COPYFILE 0 (tackon #sdir "Libs.info") destination)
  593. (P_COPYDIR  1 (tackon #sdir "Libs"    ) (tackon destination "Libs"    ))
  594. (P_COPYDIR  1 (tackon #sdir "Libs/mui") (tackon destination "Libs/mui"))
  595.  
  596. ;(run (cat "copy " (tackon #sdir "Libs.info") " \"" destination "\""))
  597. ;(set cv_dir (tackon #sdir "Libs"    )) (set cv_pat "#?.(library|class|lzx)") (COPYVER)
  598. ;(set cv_dir (tackon #sdir "Libs/mui")) (set cv_pat "#?"                    ) (COPYVER)
  599.  
  600. (P_CLEANTMP)
  601.  
  602. (complete 30)
  603.  
  604.  
  605. ;=============================================================================
  606. ; Locale
  607.  
  608. (set #sdir (P_PREPARE "Locale"))
  609.  
  610. (P_COPYFILE 0 (tackon #sdir "Locale.info") destination)
  611. (if (= (exists (tackon destination "Locale"         )) 0) ( (makedir (tackon destination "Locale"         ) (help @makedir-help)) ))
  612. (if (= (exists (tackon destination "Locale/Catalogs")) 0) ( (makedir (tackon destination "Locale/Catalogs") (help @makedir-help)) ))
  613. (P_COPYDIR  1 (tackon #sdir "Locale/Catalogs/Deutsch") (tackon destination "Locale/Catalogs/Deutsch"))
  614.  
  615. ;(run (cat "copy " (tackon #sdir "Locale.info") " \"" destination "\"" ))
  616. ;(if (= (exists (tackon destination "Locale"         )) 0) ( (makedir (tackon destination "Locale"         ) (help @makedir-help)) ))
  617. ;(if (= (exists (tackon destination "Locale/Catalogs")) 0) ( (makedir (tackon destination "Locale/Catalogs") (help @makedir-help)) ))
  618. ;(set cv_dir (tackon #sdir "Locale/Catalogs/Deutsch")) (set cv_pat "#?.catalog") (COPYVER)
  619.  
  620. (P_CLEANTMP)
  621.  
  622. (complete 32)
  623.  
  624.  
  625. ;=============================================================================
  626. ; Images
  627.  
  628. (complete 34)
  629.  
  630. (set #sdir (P_PREPARE "Images"))
  631.  
  632. (set #idir (tackon #sdir "Images"))
  633. (if (<> (exists #idir (noreq)) 0)
  634. (
  635.     (set img_xen    "Martin 'MagicWB' Huttenloher") (if (= (exists (tackon #idir "XEN"   )) 0) (set img_xen    (cat img_xen    " " #nainfo2)))
  636.     (set img_goonie "Andreas 'Goonie' Schildbach" ) (if (= (exists (tackon #idir "Goonie")) 0) (set img_goonie (cat img_goonie " " #nainfo2)))
  637.     (set img_kt     "Christian 'Kochtopf' Scholz" ) (if (= (exists (tackon #idir "KT"    )) 0) (set img_kt     (cat img_kt     " " #nainfo2)))
  638.     (set img_kmel   "Klaus 'kmel' Melchior"       ) (if (= (exists (tackon #idir "kmel"  )) 0) (set img_kmel   (cat img_kmel   " " #nainfo2)))
  639.     (set img_wd     "Walter Dörwald"              ) (if (= (exists (tackon #idir "WD"    )) 0) (set img_wd     (cat img_wd     " " #nainfo2)))
  640.  
  641.     (set choice
  642.         (askoptions
  643.             (prompt #imgask " " #nainfo1 " " #nainfo2 " " #nainfo3)
  644.             (choices img_xen img_goonie img_kt img_wd img_kmel)
  645.             (help @askoptions-help)
  646.         )
  647.     )
  648.  
  649.     (complete 35)
  650.  
  651.     (makedir (tackon destination "Images"))
  652.     (P_COPYFILE 0 (tackon #sdir "Images.info") destination)
  653.  
  654.     (complete 39) (if (BITAND choice  1) ( (set ci_dir (tackon #idir "XEN"   )) (COPYIMAGEDIR) ))
  655.     (complete 41) (if (BITAND choice  2) ( (set ci_dir (tackon #idir "Goonie")) (COPYIMAGEDIR) ))
  656.     (complete 43) (if (BITAND choice  4) ( (set ci_dir (tackon #idir "KT"    )) (COPYIMAGEDIR) ))
  657.     (complete 45) (if (BITAND choice  8) ( (set ci_dir (tackon #idir "WD"    )) (COPYIMAGEDIR) ))
  658.     (complete 47) (if (BITAND choice 16) ( (set ci_dir (tackon #idir "kmel"  )) (COPYIMAGEDIR) ))
  659.     (complete 49)                          (set ci_dir (tackon #idir "Misc"  )) (COPYIMAGEDIR)
  660. )
  661. )
  662.  
  663. (P_CLEANTMP)
  664.  
  665.  
  666.  
  667. ;=============================================================================
  668. ; Docs Drawer
  669.  
  670. (complete 50)
  671.  
  672. (set #sdir (P_PREPARE "Docs"))
  673.  
  674. (set #ddir (tackon #sdir "Docs"))
  675. (if (exists #ddir)
  676. (
  677.     (P_COPYFILE 0 (tackon #sdir "Docs.info") destination)
  678.  
  679.     (if (exists (tackon destination "Docs/Preview"     )) (delete (tackon destination "Docs/Preview"     ) (infos)))
  680.     (if (exists (tackon destination "Docs/Deutsch"     )) (delete (tackon destination "Docs/Deutsch"     ) (all)  ))
  681.     (if (exists (tackon destination "Docs/English"     )) (delete (tackon destination "Docs/English"     ) (all)  ))
  682.     (if (exists (tackon destination "Docs/Deutsch.info")) (delete (tackon destination "Docs/Deutsch.info")        ))
  683.     (if (exists (tackon destination "Docs/English.info")) (delete (tackon destination "Docs/English.info")        ))
  684.  
  685.     (copyfiles
  686.         (prompt "Creating Docs Drawer...")
  687.         (source #ddir)
  688.         (dest (tackon destination "Docs"))
  689.         (pattern "~(#?.lzx|English#?|Deutsch#?)")
  690.         (infos)
  691.         (help @copyfiles-help)
  692.         (confirm "expert")
  693.     )
  694.  
  695.     ; !!!
  696.     (if (exists "Docs/misc.lzx")
  697.     (
  698.         (run (cat "t:unlzx -m e Docs/misc.lzx \"" (tackon destination "Docs") "/\""))
  699.     )
  700.     )
  701.  
  702.     (if (exists (tackon #ddir "English/MUI.guide"))
  703.     ((set guide_english "English") (if (= lng "english") ((set defchoice 1))) )
  704.     ((set guide_english (cat "English " #nainfo2))))
  705.  
  706.     (if (exists (tackon #ddir "Deutsch/MUI.guide"))
  707.     ((set guide_german "Deutsch") (if (= lng "deutsch") ((set defchoice 2))) )
  708.     ((set guide_german (cat "Deutsch " #nainfo2))))
  709.  
  710.     (if (exists (tackon #ddir "Français/MUI.guide"))
  711.     ((set guide_french "Français") (if (= lng "français") ((set defchoice 4))) )
  712.     ((set guide_french (cat "Français " #nainfo2))))
  713.  
  714.     (set choice
  715.         (askoptions
  716.             (prompt #guideask " " #nainfo1 " " #nainfo2 " " #nainfo3)
  717.             (choices guide_english guide_german guide_french)
  718.             (default defchoice)
  719.             (help @askoptions-help)
  720.         )
  721.     )
  722.  
  723.     (set cd_name "MUI.guide")
  724.     (complete 53) (if (BITAND choice 1) ( (set cd_language "English" ) (set cd_srcdir #ddir) (COPYDOC) ))
  725.     (complete 56) (if (BITAND choice 2) ( (set cd_language "Deutsch" ) (set cd_srcdir #ddir) (COPYDOC) ))
  726.     (complete 59) (if (BITAND choice 4) ( (set cd_language "Français") (set cd_srcdir #ddir) (COPYDOC) ))
  727.  
  728.     (complete 60)
  729.  
  730.     (delete unarced)
  731. )
  732. )
  733.  
  734. (P_CLEANTMP)
  735.  
  736.  
  737.  
  738. ;=============================================================================
  739. ; Other drawers
  740.  
  741. (complete 65) (set cd_name "Demos"   ) (set cd_ask #demosdrawer) (set cd_opts ""      ) (COPYDRAWER)
  742. (complete 70) (set cd_name "Icons"   ) (set cd_ask ""          ) (set cd_opts ""      ) (COPYDRAWER)
  743. (complete 75) (set cd_name "Presets" ) (set cd_ask ""          ) (set cd_opts ""      ) (COPYDRAWER)
  744. (complete 80) (set cd_name "Rexx"    ) (set cd_ask ""          ) (set cd_opts ""      ) (COPYDRAWER)
  745. (complete 85) (set cd_name "Goodies" ) (set cd_ask ""          ) (set cd_opts ""      ) (COPYDRAWER)
  746. (complete 90) (set cd_name "Patterns") (set cd_ask ""          ) (set cd_opts "nofail") (COPYDRAWER)
  747.  
  748.  
  749. (if (exists (tackon destination "Install")) (delete (tackon destination "Install") (all)))
  750.  
  751.  
  752. ;=============================================================================
  753. ; Startup Sequence
  754.  
  755. (complete 93)
  756.  
  757. (startup "MUI"
  758.     (prompt "Some commands will be added to your \"s:user-startup\" file.")
  759.     (help @startup-help)
  760.     (command "if exists \"" destination "\"\n")
  761.     (command "   assign MUI: \"" destination "\"\n")
  762.     (command "   if exists MUI:Libs\n")
  763.     (command "      assign add LIBS: MUI:Libs\n")
  764.     (command "   endif\n")
  765.     (command "   if exists MUI:Locale\n")
  766.     (command "      assign add LOCALE: MUI:Locale\n")
  767.     (command "   endif\n")
  768.     (command "   version >nil: exec.library 39\n")
  769.     (command "   if not warn\n")
  770.     (command "      if exists MUI:Docs\n")
  771.     (command "         if exists HELP:dummy ; do not remove\n")
  772.     (command "         endif                ; this entry!\n")
  773.     (command "         assign add HELP: MUI:Docs\n")
  774.     (command "      endif\n")
  775.     (command "   endif\n")
  776.     (command "endif")
  777. )
  778.  
  779.  
  780.  
  781. ;=============================================================================
  782. ; Finish
  783.  
  784. (complete 95)
  785.  
  786. (run (cat "assign mui: " "\"" destination "\""))
  787.  
  788. (complete 100)
  789.  
  790. (exit #intro_0 "\n\n" #finished_0 "\n\n" destination "\n\n" #finished_1 (quiet))
  791.  
  792.  
  793.  
  794.  
  795.  
  796.  
  797.  
  798.  
  799.  
  800.  
  801.  
  802.  
  803.  
  804.  
  805.  
  806.  
  807.  
  808.  
  809.  
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816.  
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.  
  858.  
  859.  
  860.  
  861.  
  862. ;(procedure P_COPY #lib #filename
  863. ;(
  864. ;    (if (exists #filename)
  865. ;    (
  866. ;        (set #srcname #filename)
  867. ;    )
  868. ;   (
  869. ;        (if (exists (tackon #tmpdir #filename) (noreq))
  870. ;        (
  871. ;            (set #srcname (tackon #tmpdir #filename))
  872. ;        )
  873. ;        (
  874. ;            (working "Extracting " #filename " from compressed distribution...")
  875. ;            (set #srcname (tackon "t:" (fileonly #filename)))
  876. ;            (run (cat "t:unlzx -m e muipack.lzx \"" #filename "\" \"" #filename ".info\" t:"))
  877. ;        )
  878. ;        )
  879. ;    )
  880. ;    )
  881. ;
  882. ;    (transcript "###" #srcname)
  883. ;
  884. ;    (if #lib
  885. ;    (
  886. ;        (copylib
  887. ;            (prompt "\nCopying " #filename "...")
  888. ;            (help @copylib-help)
  889. ;            (source #srcname)
  890. ;            (dest (tackon destination (pathonly #filename)))
  891. ;            (optional "force" "askuser")
  892. ;            (confirm "expert")
  893. ;            (infos)
  894. ;        )
  895. ;    )
  896. ;    (
  897. ;        (copyfiles
  898. ;            (prompt "\nCopying " #filename "...")
  899. ;            (help @copyfiles-help)
  900. ;            (source #srcname)
  901. ;            (dest (tackon destination (pathonly #filename)))
  902. ;            (confirm "expert")
  903. ;            (infos)
  904. ;        )
  905. ;    )
  906. ;    )
  907. ;)
  908. ;)
  909.  
  910.  
  911. ;=============================================================================
  912. ; COPYVER
  913. ;
  914. ; cv_dir - directory
  915. ; cv_pat - pattern
  916.  
  917. ;(procedure COPYVER
  918. ;(
  919. ;    (transcript "1: " cv_dir)
  920. ;
  921. ;    (if (exists cv_dir)
  922. ;    (
  923. ;        (transcript "2: " cv_dir " " cv_pat)
  924. ;
  925. ;        (foreach cv_dir cv_pat
  926. ;        (
  927. ;            (set src (tackon cv_dir @each-name))
  928. ;
  929. ;            (transcript "3: " src)
  930. ;
  931. ;            (if (patmatch "#?.lzx" @each-name)
  932. ;            (
  933. ;                (set unarced (tackon "t:" (substr @each-name 0 (- (strlen @each-name) 4))))
  934. ;                (run (cat "t:unlzx -m e \"" src "\" t:"))
  935. ;                (if (= (exists unarced (noreq)) 0) (exit "unarc error"))
  936. ;                (set src unarced)
  937. ;            )
  938. ;            )
  939. ;
  940. ;            (copylib
  941. ;                (prompt "\nCopying " @each-name "...")
  942. ;                (help @copylib-help)
  943. ;                (source src)
  944. ;                (dest (tackon destination cv_dir))
  945. ;                (optional "force" "askuser")
  946. ;                (confirm "expert")
  947. ;            )
  948. ;
  949. ;            (if (patmatch "#?.lzx" @each-name)
  950. ;            (
  951. ;                (delete unarced)
  952. ;            )
  953. ;            )
  954. ;        )
  955. ;        )
  956. ;    )
  957. ;    )
  958. ;)
  959. ;)
  960.  
  961.  
  962.  
  963. ;(set @envlng (getenv "Language"))
  964. ;
  965. ;(if (= @envlng "deutsch")
  966. ;(
  967. ;    (set @lng 1)
  968. ;)
  969. ;(
  970. ;    (set @lng 0)
  971. ;)
  972. ;)
  973. ;(set @lng
  974. ;    (askchoice
  975. ;        (prompt "Please select the desired language for the installation procedure.\n\nBitte wählen Sie die gewünschte Sprache für die Installationsprozedur.")
  976. ;        (choices "english" "deutsch")
  977. ;        (default @lng)
  978. ;        (help @askoptions-help)
  979. ;    )
  980. ;)
  981.  
  982.  
  983. ;(set cpu (database "cpu"))
  984. ;(set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  985. ;(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  986. ;(if (< (/ (getversion "exec.library" (resident)) 65536) 37)
  987. ;    (abort "This program requires OS 2.04 or better.")
  988. ;)
  989. ;(welcome #welcome)
  990.  
  991.  
  992. ;(copylib
  993. ;    (prompt "\nCopying preferences program MUI...")
  994. ;    (source "MUI")
  995. ;    (dest destination)
  996. ;    (infos)
  997. ;    (help @copylib-help)
  998. ;    (confirm "expert")
  999. ;)
  1000.  
  1001. ;(copylib
  1002. ;    (prompt "\nCopying screen inspector PSI...")
  1003. ;    (source "PSI")
  1004. ;    (dest destination)
  1005. ;    (infos)
  1006. ;    (help @copylib-help)
  1007. ;    (confirm "expert")
  1008. ;)
  1009.  
  1010.  
  1011. ;(P_COPY 1 "MUI")
  1012. ;(P_COPY 1 "PSI")
  1013.  
  1014.  
  1015.